home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS229B.dsk / DEMO RUNNER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  959b  |  23 lines
  1. 3  POKE 1010,166: POKE 1011,250: POKE 1012,95
  2. 4  POKE 32,0: POKE 33,40: POKE 35,0: POKE 36,24: HOME : TEXT 
  3. 5  ONERR  GOTO 1000
  4. 10 L = 672
  5. 20  IF  PEEK(L) = 7  AND  PEEK(L +1) = 7  THEN 100
  6. 25  IF  PEEK(L) = 9  AND  PEEK(L +1) = 9  THEN 200
  7. 26  REM  IF COMING FROM OTHER DRIVE DONT ASK ABOUT SOUND
  8. 27  IF  PEEK(L +3) = 128  THEN 40
  9. 30  HOME : VTAB 12: PRINT "        DO YOU WANT SOUND? (Y/N)": POKE  -16368,0
  10. 31  FOR X = 1 TO 1400: IF  PEEK( -16384) <128  THEN  NEXT X
  11. 32  IF  PEEK( -16384) = 206  THEN  POKE L +2,119
  12. 33  IF  PEEK( -16384) < >206  THEN  POKE L +2,0
  13. 34  HOME 
  14. 40  PRINT  CHR$(4)"RUN RAINBOW DEMO"
  15. 100  PRINT  CHR$(4)"RUN ABC DEMO"
  16. 200  REM  SWITCH TO OTHER DISK, OR RUN MASK DEMO 
  17. 202  PRINT  CHR$(4)"BLOAD FIND2"
  18. 204  CALL 4096: IF   NOT  PEEK(0)  THEN 40
  19. 205  POKE L,0: POKE L +1,0: POKE L +3,128
  20. 206 D = 3 - PEEK(L +4): ON D >2  OR D <1 GOTO 1000
  21. 207  PRINT  CHR$(4)"RUN HELLO,D"D
  22. 900  POKE L,0: POKE L +1,0: POKE L +3,128
  23. 1000  CALL  -1370